<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include virtual="/expedientes/includes_comun/asp/comun.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Sistemas OnLine</title>
<link href="includes_comun/css/general.css" rel="stylesheet" type="text/css" />
<link href="includes_comun/css/usuarios.css" rel="stylesheet" type="text/css" />
<link href="includes/css/sistema.css" rel="stylesheet" type="text/css" />
<script src="includes/js/botones.js" language="javascript" type="text/javascript"></script>
</head>

<body>
<div align="center" class="general-central">

	<!--#Include file="includes_comun/areas/usuarios.asp"-->
	
	<!--#Include file="includes/areas/cabecera.asp"-->
	
	<div class="general-contenido">
<%

Dim dir
'Conectar dbSOL
Conectar_sol
SQL = "SELECT Nombre, Nivel, URL FROM Sistemas ORDER BY Ubicacion"
Set Tabla = Conexion.Execute(SQL)
i = 0
Do While Not Tabla.EOF
	If UsrNivel And Tabla("Nivel") Then
		dir = "/expedientes" & Tabla("URL")
		i = i + 1
%>		
		<div class="sistemas-area" onClick="document.location='<%= dir %>';" onMouseOver="FondoAct(this,'#52A3A3','#D6EBEB')" onMouseOut="FondoDes(this,'#C1C1AA','#D7D7C8')">
			<span class="titulo"><%= Tabla("Nombre") %></span>
		</div> 
<%
	End If
	Tabla.MoveNext
Loop
If i = 1 Then Response.Redirect(dir)
Tabla.Close
Desconectar
%>		
	</div>
</div>
</body>
</html>
